home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc2of2-Partner-Edition.iso / Applications / Technical Publishing / Aldus PageMaker 5.0 / Scripts / Bike Wheel next >
Encoding:
Text File  |  1993-07-27  |  1.2 KB  |  81 lines  |  [TEXT/ttxt]
  1. — Aldus Corporation 1993
  2. — Bikewheel script
  3.  
  4. — This script creates a new default pub
  5. — and makes a graphic of a bicycle wheel using the
  6. — rotate and nudge commands applied to lines.
  7. new
  8.  
  9. — Set measurement units to inches
  10. measureunits inches,inches
  11.  
  12. —Create two ‘spokes’, select both and cut to clipboard
  13. linestyle 2,0
  14. line 0 0 6 0
  15. line 0 0.75 6  0.75
  16. selectextend 1
  17. cut
  18.  
  19. —Paste the ‘spokes’ rotate ten degrees around common center.
  20. —Nudge for proper alignment.
  21. paste
  22. nudge 1.5 5.5
  23. rotate center 5
  24. paste
  25. nudge 1.5 5.5
  26. rotate center 15
  27. paste
  28. nudge 1.5 5.5
  29. rotate center 25
  30. paste
  31. nudge 1.5 5.5
  32. rotate center 35
  33. paste
  34. nudge 1.5 5.5
  35. rotate center 45
  36. paste
  37. nudge 1.5 5.5
  38. rotate center 55
  39. paste
  40. nudge 1.5 5.5
  41. rotate center 65
  42. paste
  43. nudge 1.5 5.5
  44. rotate center 75
  45. paste
  46. nudge 1.5 5.5
  47. rotate center 85
  48. paste
  49. nudge 1.5 5.5
  50. rotate center 95
  51. paste
  52. nudge 1.5 5.5
  53. rotate center 105
  54. paste
  55. nudge 1.5 5.5
  56. rotate center 115
  57. paste
  58. nudge 1.5 5.5
  59. rotate center 125
  60. paste
  61. nudge 1.5 5.5
  62. rotate center 135
  63. paste
  64. nudge 1.5 5.5
  65. rotate center 145
  66. paste
  67. nudge 1.5 5.5
  68. rotate center 155
  69. paste
  70. nudge 1.5 5.5
  71. rotate center 165
  72. paste
  73. nudge 1.5 5.5
  74. rotate center 175
  75.  
  76. -Center image on page
  77. selectall
  78. nudge -0.35 -0.6
  79.  
  80. —end of script
  81.